(Man-getpage-in-background): Put GROFF_NO_SGR in env.

diff --git a/lisp/man.el b/lisp/man.el
index c5a5acd1282e6fa23dc72fb67d3a0b6df2931c9a..855565242e2e289e1b34cea73da19f98a6caa177 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -618,7 +618,9 @@ all sections related to a subject, put something appropriate into the
             (start-process manual-program buffer "sh" "-c"
                            (format (Man-build-man-command) man-args))
             'Man-bgproc-sentinel)
-         (progn
+         (let ((process-environment 
+                (cons "GROFF_NO_SGR=1" process-environment)))
+
            (let ((exit-status
                   (call-process shell-file-name nil (list buffer nil) nil "-c"
                                 (format (Man-build-man-command) man-args)))